Atari ST XBIOS routines (some) 03Jul86gem These are some of the xbios routines from the Hitchhiker's Guide to the BIOS. Feel free to add and experiment. \ xbios functions 30Jun86gem2variable save-ssp : supermode (S -- ) 0. 32 trap#1 save-ssp 2! 2drop drop ; : usermode (S -- ) save-ssp 2@ 32 trap#1 2drop drop 2drop ; : physbase (S -- d ) 2 trap#14 rot drop ; : logbase (S -- d ) 3 trap#14 rot drop ; : getres (S -- n ) 4 trap#14 rot 2drop ; : setscreen (S res phy log -- ) 5 trap#14 2drop 2drop 2drop 2drop ; : random (S -- d ) 17 trap#14 rot drop ; : settime (S d -- ) 22 trap#14 2drop drop 2drop ; : gettime (S -- d ) 23 trap#14 rot drop ; : setpalette (S daddr -- ) 6 trap#14 2drop drop 2drop ; : setcolor (S color color# -- ) 7 trap#14 2drop drop 2drop ; : setres (S res -- ) -1. -1. setscreen ; --> \ rsconf, midi, cursor functions 02Jul86gem: rsconf (S scr tsr rsr ucr flowctl speed -- ) 15 trap#14 2drop drop 2drop 2drop 2drop ; : setbaud (S n -- ) >r -1. -1. -1 r> rsconf ; : giaccess (S reg n -- n ) 28 trap#14 drop >r 2drop drop r> ; : offgibit (S bitno -- ) 29 trap#14 2drop 2drop ; : ongibit (S bitno -- ) 30 trap#14 2drop 2drop ; : dosound (S daddr -- ) 31 trap#14 2drop drop 2drop ; : cursor (S -- ) 27 emit ascii e emit ; : nocursor (S -- ) 27 emit ascii f emit ; : inverse (S -- ) 27 emit ascii p emit ; : normal (S -- ) 27 emit ascii q emit ; : wrap (S -- ) 27 emit ascii v emit ; : nowrap (S -- ) 27 emit ascii w emit ; : fcolor (S n -- ) 27 emit ascii b emit 15 and emit ; : bcolor (S n -- ) 27 emit ascii c emit 15 and emit ; --> \ rgb 30Jun86gem : rgb (S color color# -- ) \ takes decimal digits like on swap dup 100 / 256 * swap \ the control panel for color dup 100 mod 10 / 16 * swap 100 mod 10 mod + + swap setcolor ;
